### $Id: Loblolly.R,v 1.1 2003/12/11 07:16:04 ripley Exp $
### Growth of Loblolly pine trees
### Kung (1986), ASA Proc. of the Statistical Computing Section, 340-343.
"Loblolly" <-
  structure(list
  (height = c(4.51, 10.89, 28.72, 41.74, 52.7, 60.92,
     4.55, 10.92, 29.07, 42.83, 53.88, 63.39, 4.79, 11.37, 30.21,
     44.4, 55.82, 64.1, 3.91, 9.48, 25.66, 39.07, 50.78, 59.07, 4.81,
     11.2, 28.66, 41.66, 53.31, 63.05, 3.88, 9.4, 25.99, 39.55, 51.46,
     59.64, 4.32, 10.43, 27.16, 40.85, 51.33, 60.07, 4.57, 10.57,
     27.9, 41.13, 52.43, 60.69, 3.77, 9.03, 25.45, 38.98, 49.76, 60.28,
     4.33, 10.79, 28.97, 42.44, 53.17, 61.62, 4.38, 10.48, 27.93,
     40.2, 50.06, 58.49, 4.12, 9.92, 26.54, 37.82, 48.43, 56.81, 3.93,
     9.34, 26.08, 37.79, 48.31, 56.43, 3.46, 9.05, 25.85, 39.15, 49.12,
     59.49),
   age = c(3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3,
     5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25,
     3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20,
     25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15,
     20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10,
     15, 20, 25),
   Seed = structure(ordered(c(10, 10, 10, 10, 10, 10,
     13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 4, 4, 4, 4, 4,
     4, 12, 12, 12, 12, 12, 12, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
     9, 9, 9, 9, 9, 9, 8, 8, 8, 8, 8, 8, 11, 11, 11, 11, 11, 11, 3,
     3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 5, 5, 5, 5,
     5, 5), levels=1:14), class = c("ordered", "factor"),
     .Label = c("329", "327", "325", "307", "331", "311",
       "315", "321", "319", "301", "323", "309", "303",
       "305"))),
row.names = c("1", "15", "29",
  "43", "57", "71", "2", "16", "30", "44", "58", "72", "3", "17",
  "31", "45", "59", "73", "4", "18", "32", "46", "60", "74", "5",
  "19", "33", "47", "61", "75", "6", "20", "34", "48", "62", "76",
  "7", "21", "35", "49", "63", "77", "8", "22", "36", "50", "64",
  "78", "9", "23", "37", "51", "65", "79", "10", "24", "38", "52",
  "66", "80", "11", "25", "39", "53", "67", "81", "12", "26", "40",
  "54", "68", "82", "13", "27", "41", "55", "69", "83", "14", "28",
  "42", "56", "70", "84"),
class = c("nfnGroupedData", "nfGroupedData", "groupedData", "data.frame"),
formula = height ~ age | Seed,
labels = list(x = "Age of tree", y = "Height of tree"),
units = list(x = "(yr)", y = "(ft)"))
environment(attr(Loblolly, "formula")) <- emptyenv()
